home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / PT102.ZIP / bot / aliases.ini
INI File  |  1997-04-02  |  907b  |  11 lines
  1. [aliases]
  2. n0=caps {
  3. n1=  %caps = 0 | %ci = 0 | :caps | inc %ci
  4. n2=  if $mid(%ci,1,*1) == $null { goto end } | if $asc($mid(%ci,1,*1)) isnum 65-90 { inc %caps | goto caps } | else goto caps
  5. n3=  :end | %txtlen = $len(*1) - $count(*1,$chr(32)) | %subcaps = %caps * 100 | %subcaps = %subcaps / %txtlen
  6. n4=  return %subcaps $+ % | unset %subcaps | unset %ci | unset %caps | unset %txtlen
  7. n5=}
  8. n6=codes { set %codes.txt $$1 | set %codes 0 | inc %codes $count(%codes.txt,) | inc %codes $count(%codes.txt,$chr(3)) | inc %codes $count(%codes.txt,$chr(31)) | inc %codes $count(%codes.txt,$chr(2)) | inc %codes $count(%codes.txt,$chr(22)) | inc %codes $count(%codes.txt,$chr(15)) | return %codes | unset %codes.txt | unset %codes }
  9. n7=ping { raw -q privmsg $$1 : $+ $chr(1) $+ PING $ticks $+ $chr(1) }
  10. n8=title { return -4=1ñ3╢10ε13±12G $+ $chr(160) $+ 7T10ε14M6δ2°12╡7T1ñ4=1- }
  11.